home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Opus5.5 / InstallOpus_e < prev    next >
Text File  |  1999-05-12  |  35KB  |  1,387 lines
  1. ; Script to install Directory Opus version 5.5
  2. ;
  3. ; Directory Opus Install Version $VER: Install-Opus 5.5  (27.08.96)
  4. ; COPYRIGHT ©1996 GP SOFTWARE, AUSTRALIA
  5. ; note uses Opus<Alt-Shift>5
  6. ; now installs new catalogs if they are on the disk.
  7.  
  8.  
  9. (onerror
  10.     (makeassign "DOPUSDEST" (safe))    
  11. )
  12.  
  13. (complete 0)
  14.  
  15. ;
  16. ;check user has Dos 2
  17. ;
  18.  
  19. (set #DOSTYPE (/ (getversion) 65536))
  20. (if
  21.     (NOT (>= #DOSTYPE 37))
  22.     (abort "Directory Opus 5 requires AmigaDOS 2.04 or higher."
  23.         " If you have an earlier version of AmigaDOS you must purchase an upgrade before using Opus 5.")
  24. )
  25.  
  26.  
  27. (set @default-dest "work:")
  28.  
  29. (set #Dopus_prog "DOpus5:DirectoryOpus")
  30. (set #Loadwb "C:LoadWb")
  31. (set #Loadwb_old "C:LoadWb_old")
  32. (set #Has_loadwb_old 0)
  33. (set #Has_loaddb 0)
  34. (set #Inst_choice 0)
  35. (set #Changed 0)
  36. (set #Inst_core 0)
  37.  
  38. (set #DName1 "AMINET31")
  39. (set #DName2 "AMINET31")
  40. (set #Disk1_Name "AMINET31:Opus5.5/")
  41. (set #Disk2_Name "AMINET31:Opus5.5/")
  42. (set #TLArchive    "MWB_DOpus8c.lha")
  43. (set #CatalogFiles "CatFiles.lha")
  44. (set #Is_update 0)
  45.  
  46. (set #DOpus_Dest (getassign "DOpus5" "a"))
  47. (set #O_DOpus_Dest (getassign "DOpus5" "a"))
  48. (set #Go "Proceed")
  49. (set #Skip "Skip this part")
  50.  
  51.  
  52.  
  53. ;
  54. ; Procedure signal
  55. ; inc ase Opus is re-installed. The notification on the modules
  56. ; directory can cause problems so signal Opus to turn off notifications
  57.  
  58. (procedure signal_opus
  59.  
  60.     (set #Want_disk 1)
  61.     (get_disk)
  62.     (set #Sigs (tackon #Disk1_Name "dopusmsg"))
  63.     (if (exists #Sigs (noreq))
  64.         (run (cat #Sigs " DOPUS.1 \"command set notify off\""))
  65.     )
  66. )
  67.  
  68.  
  69. ;
  70. ; Procedure check_lha 
  71. ;
  72.  
  73.  
  74. (procedure check_lha
  75.  
  76.     (set #Title_msg "ERROR: Problem with LHA.\n\n")
  77.  
  78.     (if ( = (exists "c:lha" (noreq)) 0)
  79.         (
  80.         (message #Title_msg
  81.             "LHA is not in the C:-directory of your system.\n\n")
  82.         )
  83.     )
  84. )
  85.  
  86. ;
  87. ; Procedure get_disk 
  88. ; get the correct disk for a program
  89. ;
  90.  
  91. (procedure get_disk
  92.  
  93.     (if (= #Want_disk 1)
  94.         (set #DiskName #DName1)
  95.         (set #DiskName #DName2)
  96.     )
  97.     (askdisk
  98.         (prompt #Title_msg
  99.             "\nPlease insert the disk labeled \""#DiskName"\".")
  100.         (help "Insert this disk in a floppy drive to continue the installation.")
  101.         (assigns)
  102.         (dest #DiskName)
  103.     )
  104.     (set #Current_disk #Want_disk)
  105. )
  106.  
  107. ;
  108. ; Procedure install_arexx  ;
  109. ; From Leo Davidson collection.
  110. ;
  111.  
  112. (procedure install_arexx
  113.  
  114.     (set #Title_msg "Installation of ARexx Archive.\n\n")
  115.     (if     (askbool (prompt #Title_msg
  116.                 "We have also included an archive of ARexx scripts and other add-ons for Opus "
  117.                 "by various users. Most of the scripts will require some further "
  118.                 "installation after this script has been run.\n\n"
  119.                 "Do you wish to install the ARexx Archives?\n")
  120.             (help "Yes do it! It is great!")
  121.         )
  122.         (
  123.         (set #Changed 1)
  124.         (set #Want_disk 2)
  125.         (get_disk)
  126.         (if    (> (+ (database "total-mem")) 1000000)
  127.             (
  128.             (working #Title_msg
  129.                 "Copying Files.")
  130.             (copyfiles (source (tackon #Disk2_Name "ARexx.lha")) (dest "ram:"))
  131.             (set #SRC "ram:")
  132.             )
  133.             (set #SRC #Disk2_Name)
  134.         )
  135.         (working #Title_msg
  136.             "Dearchiving and installing the ARexx scripts.\n\n"
  137.             "More patience..\n"
  138.             "Won't take too long.")
  139.             
  140.         (run (cat "lha >NIL: <NIL: -q x "#SRC"ARexx.lha DOPUSDEST:"))
  141.         (delete "ram:ARexx.lha" (safe))
  142.         (run "c:protect DOPUSDEST:ARexx/#? +s")
  143.  
  144.         (message #Title_msg
  145.             "The ARexx scripts are now installed. Please read "
  146.             "the top of the scripts for further information on "
  147.             "what they do and how to use them.\n\n"
  148.             "The scripts are in \"DOpus5:Arexx\", some add-on modules are in "
  149.             "\"DOpus5:Storage/Modules\", and some of the add-ons have AmigaGuides "
  150.             "which are in \"DOpus5:Help\". There are also some new icons in "
  151.             "\"DOpus5:Icons\".\n"
  152.             "\nTo activate modules you must move them to \"DOpus5:Modules\" and "
  153.             "re-start Opus."
  154.         )
  155.         )
  156.     )
  157. )
  158.  
  159. ;
  160. ; Procedure install_mwbextras ;
  161. ; MWB_DOpus_8_Install 1.0 (11.8.96)
  162. ; Install originally written by Leo Davidson.
  163. ;
  164.  
  165. (procedure install_mwbextras
  166.  
  167.     (set #Title_msg "MWB_DOpus v8.0 Installation.\n\n")
  168.     ;- Introductory message 
  169.  
  170.     (if    (askbool (prompt #Title_msg
  171.                 "Developed by Trevor Morris and Leo Davidson\n\n"
  172.                 "MagicWorkbench toolbar icons and backdrops "
  173.                 "for Directory Opus 5.5 (and other programs).\n\n"
  174.                 "These provide a very nice set of images for"
  175.                 " toolbars and icons whether or not you use MagicWorkbench."
  176.                 "\n\nDo you wish to install these on your system?")
  177.             (help "Yes do it! It is great!")
  178.         )
  179.         (
  180.         (set #Changed 1)
  181.         (set #Want_disk 2)
  182.         (get_disk)
  183.         (if    (> (+ (database "total-mem")) 1000000)
  184.             (
  185.             (working #Title_msg
  186.                 "Copying Files.")
  187.             (copyfiles (source (tackon #Disk2_Name #TLArchive)) (dest "ram:"))
  188.             (set #SRC "ram:")
  189.             )
  190.             (set #SRC #Disk2_Name)
  191.         )
  192.         (working #Title_msg
  193.             "Dearchiving the MWB Archive.\n\n"
  194.             "Ever thought of taking up Chess?....\n\n"
  195.             "Ahh, wouldn't a \"Power\" Amiga be great!")
  196.         (run (cat "lha >NIL: <NIL: -q x "(tackon #SRC #TLArchive)" ram:"))
  197.         (delete (tackon "ram:" #TLArchive) (safe))
  198.  
  199.         (run "cd ram:MWB8")
  200.  
  201.     ;- Set where to do the install to
  202.  
  203.         (set #Target "DOPUSDEST:")
  204.  
  205.     
  206.     ;- Back-up the old Images drawer (if exists) and copy new images
  207.  
  208.         (if (= (exists "DOPUSDEST:Images" (noreq)) 2) 
  209.             (
  210.             (set #Tmp_msg "\n\nYour old \"Images\" drawer can be backup before the new images are installed.")
  211.             (set images_exist 1)
  212.             )
  213.             (
  214.             (set #Tmp_msg " ")
  215.             (set images_exist 0)
  216.             )
  217.         )
  218.  
  219.         (if     (askbool (prompt #Title_msg
  220.                     "The new toolbar images will be copied"
  221.                     " to your \"Dopus5:Images\" drawer."
  222.                     #Tmp_msg)
  223.                 (choices #Go #Skip)
  224.                 (default 1)
  225.                 (help "This part installs all the toolbar images.")
  226.             )
  227.             ( ; yes 
  228.             (if images_exist
  229.                 (
  230.                 (set #Bkup 1)
  231.                 (set #New_name (cat "Images" #Bkup))
  232.                 (while     (= (exists (cat "DOPUSDEST:" #New_name) (noreq)) 2)
  233.                     (
  234.                     (set #Bkup (+ #Bkup 1))
  235.                     (set #New_name (cat "Images" #Bkup))
  236.                     )
  237.                 )
  238.                 (if     (askbool (prompt #Title_msg
  239.                         "Do you wish to backup your current"
  240.                         " \"Images\" directory or overwrite it"
  241.                         " with the new images?\n\n"
  242.                         "Your old directory would be backed up as "#New_name".")
  243.                     (choices "Yes - Backup" "No - Overwrite")
  244.                     (default 1)
  245.                     (help "If in doubt select Yes.")
  246.                     )
  247.                     (; backup Images
  248.                     (rename (tackon #Target "Images") (tackon #Target #New_name))
  249.                     )
  250.                 )
  251.                 )
  252.             )
  253.  
  254.             (copyfiles
  255.                 (source "ram:MWB8/Images")
  256.                 (dest (tackon #Target "Images"))
  257.                 (all)
  258.                 (optional force)
  259.                 )
  260.             )
  261.         )
  262.  
  263.     ;- Copy the Colours guide
  264.     
  265.         (if    (askbool (prompt #Title_msg
  266.                     "We have provided some simple shortcuts which"
  267.                     " allow you to quickly set MagicWorkbench colours.\n\n"
  268.                     "Do you wish to install this \"Colours\" directory?")
  269.                 (default 1)
  270.                 (help "This part installs a MWB Colors directory.")
  271.             )
  272.             (copyfiles
  273.                 (source "ram:MWB8/Colors")
  274.                 (dest (tackon #Target "Colors"))
  275.                 (all)
  276.                 (infos)
  277.                 (optional force)
  278.             )
  279.         )
  280.             
  281.     ;- Copy the new icons (for programs, files, etc)
  282.     
  283.         (if    (askbool (prompt #Title_msg
  284.                     "The old DOpus5 file icons will be replaced by "
  285.                     "MagicWorkbench versions.\n\n"
  286.                     "Note: In case you have set some tooltypes in it, "
  287.                     "the main DirectoryOpus icon will be left alone. You "
  288.                     "should replace it manually as described in the help "
  289.                     "guide which is installed later.")
  290.                 (choices #Go #Skip)
  291.                 (default 1)
  292.                 (help "This part installs all the program and file icons.")
  293.             )
  294.             (copyfiles 
  295.                 (source "ram:MWB8/DOpus_Icons")
  296.                 (dest #Target)
  297.                 (all)
  298.                 (optional force)
  299.             )
  300.         )
  301.     
  302.     ;- Copy the Help guide
  303.     
  304.         (if    (askbool (prompt #Title_msg
  305.                     "An AmigaGuide about MWB_DOpus 8, including hints & tips "
  306.                     "will be copied to \"DOpus5:Help\".")
  307.                 (choices #Go #Skip)
  308.                 (default 1)
  309.                 (help "This part installs the help guide.")
  310.             )
  311.             (copyfiles
  312.                 (source "ram:MWB8/Help/MWB_DOpus8_Help.guide")
  313.                 (dest (tackon #Target "Help"))
  314.                 (infos)
  315.                 (optional force)
  316.             )
  317.         )
  318.     
  319.     ;- Copy the fonts 
  320.     
  321.         (if    (askbool (prompt #Title_msg
  322.                     "Some extra fonts will be copied to \"Fonts:\".\n"
  323.                     "They are not essential to use MWB_DOpus.\n\n"
  324.                     "These fonts are:\n"
  325.                     "\"P0T-NOoDLE\",\n"
  326.                     "\"P0T-Prop\",\n"
  327.                     "\"PolarSmall\", and,\n"
  328.                     "\"PolarSmall-Prop\".")
  329.                 (choices #Go #Skip)
  330.                 (default 1)
  331.                 (help "This part installs some extra fonts.")
  332.             )
  333.             (co